home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #3 / utv1n3s2.d64 / h-t-h karate (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  857 b   |  23 lines
  1. 10 ifpeek(55)+256*peek(56)<>32767thenpoke55,255:poke56,127:clr:poke157,0
  2. 20 ifx=0thenpoke53265,11:print"[144][147]":poke53280,0:poke53281,0
  3. 30 ifx=0thenx=1:load"up-time logo",8,1
  4. 40 ifx=1thenpoke56576,148:poke53272,223:print"[154][147]":goto110
  5. 50 ifx=1thenx=2:load"karate chars",8,1
  6. 60 ifx=2thenx=3:load"karate guys",8,1
  7. 90 print"[144]load"chr$(34)"karate"chr$(34)",8":print"run:"
  8. 95 poke198,3:poke631,19:poke632,13:poke 633,13
  9. 100 new
  10. 110 c$="[154][159][159][153][153][153][153][159][159][154]":poke53281,6:poke53280,6:poke53265,27
  11. 120 ld=ld+1:cn=cn+1:ifcn>len(c$)thencn=1
  12. 130 printmid$(c$,cn,1)"[147]":getx$:ifx$<>""then160
  13. 140 ifld=101then160
  14. 150 goto120
  15. 160 poke53265,11:poke53281,0:poke53280,0:print"[144][147]"tab(13)"[158]              "
  16. 170 print"[153]                [156]                   "
  17. 180 print"[159]                [156]                   "
  18. 190 print"[154]                                   "
  19. 200 print"                [154]                   "
  20. 210 print"[156]                [159]                   "
  21. 220 print"[156]                [153]                   "
  22. 230 printtab(14)"[158]             ":poke53265,27:goto50
  23.